home *** CD-ROM | disk | FTP | other *** search
/ The History of Denim / The History of Denim.iso / pc / floatlib.cst / 00005_Cursor handler.ls < prev    next >
Encoding:
Text File  |  1997-11-14  |  3.5 KB  |  128 lines
  1. --copy this into the other dir files
  2. --on CursorRoll WhoAmi, Myrects
  3. --  if the frontwindow =  WhoAmi then
  4. --    repeat with c= 1 to count (Myrects)
  5. --      if inside (point(the mouseH, The MouseV), getat(Myrects,c)) then
  6. --        cursor [member "hand", member "handmask"]
  7. --      else
  8. --        cursor 0
  9. --      end if
  10. --    end repeat
  11. --  end if
  12. --end
  13.  
  14. --  --The Infamous 'Click States'
  15. --  --  The GRFX change while you're in the area, reset when you'r not
  16. --  if the framelabel = "Main" then
  17. --    set MyTestrects = [rect(62, 248, 282, 282)]
  18. --    set Myclickedrects = [rect(62, 248, 282, 282)]
  19. --    set MyClickGRFX = ["brands_list_click"]
  20. --    repeat with d = 1 to count (MyTestrects)
  21. --      if inside(point(the mouseH,the mouseV),getat(MyTestrects,d)) then
  22. --        puppetsprite 50, true
  23. --        set the membernum of sprite 50 = member (getat(MyClickGRFX,d))
  24. --        set the rect of sprite 50 = getat(Myclickedrects,d)
  25. --        updatestage
  26. --      end if
  27. --    end repeat
  28. --  end if
  29. --
  30. --on mouseup:
  31. --allfalse
  32. --updatestage
  33. --
  34.  
  35. on gimme
  36.   set MyList = []
  37.   set MyProp = [:]
  38.   repeat with a = 1 to 1000
  39.     go to frame a
  40.     if the framelabel <> 0 then
  41.       add(MyList, the framelabel)
  42.       addprop(MyProp, the framelabel, the framelabel)
  43.     end if
  44.   end repeat
  45.   put MyList
  46.   put count (Mylist)
  47.   put MyProp
  48. end
  49.  
  50. on gimmeInUse
  51.   set MyList = []
  52.   set MyProp = [:]
  53.   repeat with a = 1 to 1000
  54.     go to frame a
  55.     if the framelabel <> 0 then
  56.       if the membernum of sprite 22 <>0 then
  57.         add(MyList, the framelabel)
  58.         addprop(MyProp, the framelabel, the framelabel)
  59.       end if
  60.     end if
  61.   end repeat
  62.   put MyList
  63.   --put count (Mylist)
  64.   --put MyProp
  65. end
  66.  
  67. on layframelabels start
  68.   set mylist = ["Main", "Atlantic", "Avondale", "Azteca", "Bibb", "Burling", "Cdi", "Coltejer", "Cone", "Courtaul", "DanRiver", "Grandtex", "Greenwood", "Gtm", "Hellenic", "Hof", "Italden", "Jeantex", "Kurabo", "Legler", "MonteBel", "NTWHeck", "Sparten", "Swift", "Tavex", "Tejidos", "Tencel", "TexFerre", "TexSanta", "Uco", "Fabricato", "Alpargat"]
  69.   
  70.   beginrecording 
  71.     repeat with a = 1 to count (mylist)
  72.       go start + (a * 10)
  73.       set the frameLabel = getat(mylist,a)
  74.       updateframe
  75.     end repeat
  76.   endrecording
  77. end
  78.  
  79.  
  80.  
  81. on GimmeImagePlacerListThingy
  82.   set MyProp = [:]
  83.   set the itemdelimiter = "\"
  84.   repeat with a = 1 to 1000
  85.     go to frame a
  86.     if the framelabel <> 0 then
  87.       if the membernum of sprite 22 <>0 then
  88.         set Temp1 = the filename of member (the membernum of sprite 22)
  89.         set Temp2 = the rect of sprite 22
  90.         delete item 1 to 2 of Temp1
  91.         set infolist = [temp1,temp2]
  92.         addprop(MyProp, the frame, infolist)
  93.       end if
  94.     end if
  95.   end repeat
  96.   put MyProp
  97. end
  98.  
  99.  
  100.  
  101.  
  102. --in the message window type "put changelink("bmp", "pct")"
  103.  
  104.  
  105. on changelink oldsuffix, newsuffix
  106.   set tempdelimiter = the itemdelimiter
  107.   set the itemdelimiter to "."
  108.   repeat with i = 1 to the number of members
  109.     if the filename of member i contains oldsuffix then
  110.       --put i
  111.       --put "the old filename = "&(the filename of member i)
  112.       set tempname = the filename of member i
  113.       set tempname = item 1 of tempname&"."&newsuffix
  114.       --put "tempname = "&tempname
  115.       set the filename of member i to tempname
  116.       --put "the new filename = "&(the filename of member i)
  117.     end if
  118.   end repeat
  119.   set the itemdelimiter to tempdelimiter
  120.   putfilenames
  121.   return "fuck you asshole"
  122. end changelink
  123.  
  124. on putfilenames
  125.   repeat with i = 1 to the number of members
  126.     put "member"&i&"= "&the filename of member i
  127.   end repeat
  128. end putfilenames